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About This Book 

This book contains simple games 
programs to play on a microcomputer. 
They are written for use on ZX8 1, ZX 
Spectrum, BBC, VIC 20, 

TRS-80 and Pet and Apple micros, and 
many are short enough to fit into the 
ZX81’s IK of memory. 

Most micros use the language BASIC, 
but they all have their own Vciriations or 
dialects. In this book, the main listing for 
each program works on the ZX8 1 and 
lines which need changing for the other 
computers are marked with symbols emd 
printed underneath. The fact that the 
programs are written for several micros 
means that they do not make full use of 
each one’s facilities. You could try 
finding ways of making the progreims 
shorter and neater for your micro. 

For each gaune, there are ideas for 
changing and adding to the programs 
and toweurds the back of the book you 
will find tips and hints on writing gaunes 
of yovu: own. Also in the book is a 
conversion chart to help you adapt 
prograuns in magazines and other books 
for your micro and a summary of the 
BASIC terms used in this book. 

Typing in the programs 

Lines which need changing for 
computers other than ZX8 1 are marked 
with these symbols: 

A VIC and Pet 

★ BBC and Acorn Electron 
■ TRS-80 

• Apple 

s ZX Spectrum 

Every time you see the symbol for the 
micro you are using, look below for the 
corresponding line number with the 



same symbol and type that in instead. 

VIC 20 versions of all except the graphics program should workon 
Pet computers. 




Points to remember 

1 Type the lines exactly as they are printed 
including all pimctuation and spaces. 

2 Press RETURN, NEWLINE or ENTER 
key at the end of each program line. 

3 Check each line eis you go. 

4 Make svure you don’t miss out a line or 
confuse one with another. A piece of paper 
or a ruler is useful to mark your place in 
the listing. 

5 Look out for the symbols and make sure 
you use the correct lines for your 
computer. 

6 If you cire using a ZX8 1 or ZX Spectrum, 
remember not to type the program 
instructions letter by letter but to use the 
special key for each instruction instead. 

You may find it easier to get someone to 
read the program out to you while you 
type it in. Don’t forget to explain that they 
must read every comma, fuUstop, bracket 
and space and differentiate between letter 
“O” and zero, FOR and 4, and TO and 2. 

Debugging programs 


When you have typed 
in the progreun, check 
your mcinual to find out 
how to display it on the 
screen. (Usually you 
type LIST followed by 
the line numbers of the 
section you wemt t o 
see.) 


__ 








*See page 37 for a special note for BBC and Spectrum users. 


Check you have 
typed everything 
correctly. It is easy to 
make mistakes, so 
expect to find some. Use 
your manual to find out 
how to make changes to 
the program once it is 
typed in. If in doubt, you 
can always type the line 
agcun. AH the computers 
will replace an existing 
line with a new one with 
the same number. 

Here is a checklist of common 
mistakes to look out for: 

1 Line missed out 

2 Line wrongly numbered 

3 The beginning of one line joined onto 
the end of another. 


4 Brackets, commas, colons, semi- 
colons, fuUstops or spaces missed out, 
especicdly in long, complicated lines. 
Watch for double brackets in peirticular. 

5 Wrong line used for your computer. 

6 Letter “©’’confused with zero. 

7 Wrong numbers used, e.g. extra zeros 
included. 

Playing the games 

To start the game you must type RUN. In 
some games things happen very quickly, 
so mcike sure you have read the 
instructions cuid know what you are 
supposed to do. 

It is quite likely that the program still 


has a mistake in it and either won’t 
at all or the game won’t work properly. 
Sometimes your computer will give you 
an error code which you can look up in 
the manual. This may help you find the 
mistake, though not always. List the 
program again euid check it carefully 
ageiinst the book. 

When the game is over, the computer 
will usually say something like BREAK IN 
LINE 200. To play again, you have to type 
RUN. 

Experimenting with the games 

There are suggestions for changing and 
adding to the programs throughout the 
book, but don’t be afraid to experiment 
with chcinges of your own. You can’t 
damage the computer and you can 
always change back to the original if the 
changes don’t work. 

You will probably find you want to 
adjust the speed of some games, * 
especially after you have played them a 
number of times. You will find out which 
line to change on each program page. 

Wherever you see 
PRINT, you can 
change the message 
quotes that follows 
whatever you like. 

Also, unless you have 
ZX81 with only IK, you 
can add extra 
messages. 

Type a line number (say 105 if you want 
to add a message between lines 100 and 
1 10), then type PRINT, then your 
message inside quotes. 

If your computer can make colours 
and sounds, you could use your manual 
to find out how they work and try adding 
them to the games in this book. 


Starship Takeoff 

You are a starship captain. You have crashed your ship on a 
strange planet and must take off again quickly in the alien 
ship you have captured. The ship.’s computer tells you the 
gravity on the planet. You must guess the force required fora 
successful take off. If you guess too low, the ship will not lift 
off the ground. If you guess too high, the ship’s fail-safe 
mechanic comes into operation to prevent it being burnt 
up. If you are still on the planet after ten tries, the aliens will 

capture you. 




INPUT 


Stores your number in F. 


100 IF F>R 
110 IF F<R 
120 IF F=R 


THEN PRINT "TOO HIGH' 
THEN PRINT "TOO LOW"; 
THEN GOTO 190 



Compares number in F with 
number in R and prints 
appropriate message or 
jumps to 190. 


130 IF COlO THEN PRINT 


TRY AGAIN" — Prints if you’ve had less 
than 10 goes without a correct 
answer. 


140 NEXT C 
150 PRINT 
160 PRINT 
170 PRINT 
180 STOP 
190 PRINT 


"YOU FAILED -" 
"THE ALIENS GOT 



End of loop. Goes back to 80 
for another turn. 


Prints after 10 unsuccessful 
goes. 


"GOOD TAKE OFF" 
The above listing will work on a ZX81. For 
other computers, make the changes below. 
•10 HOME 

AlO PRINT CHR^(147) 

★a#30 let G=INT(RND(1> 820) 
■30 LET G=INT(RND(0) *20) 
★a#40 let W=INT(RND(1)*40) 
■40 LET W=INT(RND(0) *40) 


How to make the game harder 


You can change the program to give 
you less than 1 0 goes. Do this by 
altering the last number in line 80 and 
the number in line 130. (They must be 
the same.) 



page 2 for meaning of • ai 
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Intergalactic Games 

There is fierce competition among the 
world’s TV companies for exclusive 
coverage of the First Intergalactic Games. 
Everything depends on which company 
wins the race to put a satellite into orbit at 
the right height. 

You are the Engineer in charge of the 
launch for New Century TV. The crucial 
decisions about the angle and speed of the 
launching rocket rests on yourshoulders. 
Can you do it? 


Wi I I i I I I I t i I ! I I I i‘ 



How the program works 

10 PRINT "INTERGALACTIC GAMES" T Chooses the height to which 

★■^•20 LET H=INT(RNDl:lOO-H) l_ yon must launch your 

30 PRINT "YOU MUST LAUNCH A SATELLITE"! sateUite^putsitinHand 
40 PRINT "TO A HEIGHT OF ";H J printsit. 


50 FOR 6=1 TO 8 

60 PRINT "ENTER ANGLE (0-90) "T 

70 INPUT A J 

80 PRINT "ENTER SPEED (0-40000)"! 
90 INPUT V J 

100 LET A=A-ATN(H/3) $180/3. 14159 
110 LET V=V-3000»SQR(H+1/H) 


Beginning of loop to give yon 
8 goes. 

Asks yonfor an angle and 
puts it in A. 

Asks you for a speed and puts 
itinV. 

Uses H to calculate what the 
angle should be and 
subtracts this from your 
guess to jGbnd out how close 
you were. 

Works out what the speed 
should be and subtracts it 
from your guess. 


120 IF ABS(A)<2 AND ABSiVXlOO THEN GOTO 2CK) ■ - ■ Checks if 

you were close enough to 
. win and if so jumps to 2 10. 

130 IF A<-2 THEN PRINT "TOO SHALLOW" I 

140 IF A>2 THEN PRINT "TOO STEEP" Prints an appropriate 

150 IF V<-100 THEN PRINT "TOO SLOW" I comment to help you with 

160 IF V>100 THEN PRINT "TOO FAST" I yournextgo. 


170 NEXT C 
180 PRINT 
190 PRINT 
200 STOP 
210 PRINT 
220 PRINT 
230 STOP 


"YOU’VE 

"YOU’RE 


FAILED" 

FIRED" 


} 


- Goes back for another go. 


"YOU’VE DONE IT" 

"NCTV W INS-THANKS TO YOU" 



-Prints after 8 unsuccessful 
goes. 

Prints if you wizL 


The above listing will work on aZX81. For 
other computers, make the changes below, 
■20 LET H=INT(RND(0)$ 100+1) 
★a«20 let H=INT(RND(1) *100+1) 



r 





Adding to the program 


Puzzle corner 


These three extra lines will make the 
comimter give yon bonus points 
depending on how quickly you make a 
successful launch. 


222 LET B=INT(1000/G) 

225 PRINT "YOU'VE EARNED A" 

227 PRINT "BONUS OF ";B;" CREDITS' 


JJJ- 


j:8: 


-LJJ. 


¥/ 


inqp 


-U- 


'OD 


Can you change the program so that, if 
you win, it automatically goes back for 
another gcune, adding the bonus you’ve 
already earned to any new bonus? 
(Hint: you need to change two lines 
and add one.) 

See how long you can play before 
NCTV fires you. 


n 
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Evil Alien 



Somewhere beneath you, in deepest, blackest spacej*^'^ 
lurks Elron, the Evil Alien. You have managed 
to deactivate all but his short-range weapons g 
but he can still make his ship invisible. 
You know he is somewhere within the 
three-dimensional grid you can see 
on your ship’s screen (see 
below), but where? 
You have four space bombs. 
Each one can be exploded at 
a position in the grid 
specified by three numbers 
between 0 and 9, which 
your computer will ask 
you for. Can you blast 
the Evil Elron out 
of space before he 
creeps up and 
captures you? 



How the program works 


a#5 CLS 

10 PRINT “EVIL ALIEN” 
20 LET S=10" - 

30 LET G=4 ■ 




- Sets the size of the grid. 

- Sets the number of goes. 


★■A#40 LET X=INT(RND*S) 
★■AesO LET Y=INT(RND*S> 
^■A060 LET D=INT(RND«S) 


70 FOR 1=1 TO G 



Elron’s position is fixed by 
these 3 lines, which select 3 
numbers between 0 and the 
size of the grid. 


80 PRINT ”X POSITION <0 TO 9)?“ 
85 INPUT XI 

90 PRINT "Y POSITION (O TO 9)?” 
100 INPUT Y1 

110 PRINT "DISTANCE (O TO 9)?” 
120 INPUT D1 


- Start of a loop which teUs the 
computer to repeat the next 
15 lines G times. 


- This section asks you for 
your 3 numbers and stores 
theminXl, Y1 andDl. 


130 IF X=X1 AND Y=Y1 AND D=D1 THEN GOTO 300 


140 PRINT "SHOT WAS 

150 IF Y1>Y THEN PRINT "NORTH"; 

160 IF YKY THEN PRINT "SOUTH"; 

170 IF X1>X THEN PRINT "EAST"; 

180 IF XKX THEN PRINT "WEST"; 

190 PRINT 

200 IF D1>D THEN PRINT "TOO FAR" 

210 IF DKD THEN PRINT "NOT FAR ENOUGH" 


— Checks if 
you were 
right and jumps to 
300 if you were. 


Your guesses are 
- compared with Elron’s 
position and a report 
printed. 



220 NEXT I 


■ End of loop. Returns for 
another go. 


"YOUR TIME HAS RUN OUT! 


•»BOOM* YOU GOT HIM! 


230 PRINT 
240 STOP 
300 PRINT 
310 STOP 

The above listing will work on a ZX81. For 
other computers, make the changes below. 
•5 HOME 

A5 PRINT CHRS(147) 

★a#40 let X=INT(RND(1) *S) 
X=INT(RND(0)»S) 
Y=INT(RND(1) *S) 
Y=INT(RND(0) tS) 
D=INT(RND(1) «S) 
D=INT(RND<0)$S) 


! " ^Prints if you’ve used up all 
your goes. 

— Prints if you guessed right. 


■ 40 

^A#50 

■50 

^A#60 

■60 


LET 

LET 

LET 

LET 

LET 


Puzzle corner 

Can you work out how to change the 
program so that the computer asks you 
for a difficulty number which it can put 
into S instead of S being fixed? (Tip: limit 
the value of S to between 6 and 30 and 
use INT(S/3) for the value of G in line 
30.) 



How to make the game harder 

This program has been written so that 
you can easily change the difficulty by 
changing the size of the grid. To do this, 
put a different value for S in line 20. 

If you increase the grid size youwiU 
need more space bombs to give you a 
fair chance of blasting Elron. Do this by 
changing the value of G in line 30. 




See page 2 for meaning of #ai 




Beat the Bug Eyes 


You’re trapped! Everywhere you turn you catch a glimpse of the steely 
cold light of a space bug’s eyes before it slithers down behind a rock 
again. Slowly the bugs edge towards you, hemming you in, waiting for a 
chance to bind you in their sticky web-like extrusions. Luckily you have 
your proton blaster with you. 

The bug eyes pop up in four different places on your screen and these 
correspond to keys 1 to 4. Press the correct key while the bug’s eyes are 
on the screen and you will blast it. There are 10 bugs in all - the more you 
blast, the greater your chance of escape. 


10 PRINT "BUG EYES" 


LET S=0- 
FOR T=1 


TO lO 


▲•40 CLS' 


★■▲•50 

60 


FOR 1=1 
NEXT I 


TO INT(RND»30+20> 


★■▲•70 LET R=INT(RND*4+1). 


★■▲•80 GOSUB 210+30»R 


N\ 


GOSUB makes the computer 
branch out of the main 
program to a “sub-routine’* 
(see next page). RETURN at | 
the end of the sub-routine 
sends it back to the main^ 
program again. 


★Til 


90 PRINT "00** 

00 FOR 1 = 1 TO 20 “> position. 

10 LET RS= INKEYS 
120 IF R*<>"" THEN GOTO 140 
130 NEXT I 

140 IF VAL("0"+RS)OR THEN GOTO 210 
150 LET S=S+1— ~ 


How the program works 

Sets the score to zero for start 
■ of game. 

- Beginning of loop which 
gives you 10 turns. 

- Clears screen. 

Delay loop which lasts a 

- varying length of time, 
depending on the value of 
RND. 

- Chooses a number from 1 to 4 
and puts it in R. 

- Jumps to one of fotir sub- 
routines depending on the 
value of R. This gets two 
numbers which correspond 
to a position on the screen- 
“A" spaces across and “D" 
lines down - and then jumps 
again to 350 to move the 
cursor to this position. 

Prints the “bug eyes" at this 


Loops round to see if you are 
—pressing a key. If you are, 
computer jumps to 140 and 
checks if it is the right one. 


Increases score by 1. 


A#160 CLS- 


170 GOSUB 
180 PRINT 


★■A#190 FDR J=1 TO 40 
200 NEXT J 


210 NEXT T 

220 PRINT "YOU BLASTED ";S;"/10 BUGS* 
230 STOP “ 


- Clears screen 

Sends cursor back to the 

- same position and prints a 
star. 

Delay loop to make star stay 

- on screen long enough for 
you to see it. 

- Goes back for next turn. 

- Prints score. 


soa 

If 


TO D 


feS.' 


240 LET D=5 
250 LET A=1 
260 GOTO 350 
270 LET D=1 
280 LET A=9 
290 GOTO 350 
300 LET D=5 
310 LET A=18 
320 GOTO 350 
330 LET D=10 
340 LET A=7 
350 FOR 1=1 
360 PRINT 
370 NEXT I 
380 PRINT TAB (A); 

390 RETURN 

The above listing wiU work on a ZX81. For 
other computers, make the changes below. 
•40,160 HOME 
A40,160 PRINT CHRA(147) 

■50 FOR 1=1 TO INT(RND(0) *300+200) 
★a#50 FOR 1 = 1 TO INT(RNDd) *300+200) 
■70 LET R=INT(RND(0)*4+1) 

★a#70 LET R=INT(RND(1)*4+1) 

^■A#80 ON R GOSUB 240,270,300,330 
★ ■A# 100 FOR 1 = 1 TO 150 
•105 RS="“ 

Alio GET RA 

★ no RA=INKEYA(1) 

• no IF PEEK (-16384) >127 THEN GET RA 
★■A^190 FOR J = 1 TO 300 


' Sub-routines. 


How to change the 
speed 

/You can speed the game 
f up by changing the last 
number in line 100 to a 
lower one. 

How to use more of 
the screen 

This program was written 
to fit on the smallest 
screen width (which is the 
VIC 20). For the other 
computers, you can 
increase the values of A in 
lines 250, 280, 310 and 340. 
Check your manual to find 
the maximum width your 
computer can use. 




Puzzle corner 

Can you change the program to make 
the bugs appear in more than four 
places on the screen? Can you add more 
bugs too? 



See page 2 for meaning o/ • a ■ ★ 


Moonlander 


You are at the controls of a lunar module which is taking a small team of astronauts' * 
down to the moon’s surface. In order to land safely you must slow down your descent 
but that takes fuel and you have only a limited supply. 

Your computer will tell you your starting height, speed and fuel supply and ask 
how much fuel you wish to bum. It will then work out your new height and speed. A 
bum of 5 will keep your speed constant. A higher number will reduce it. Try to have 


your speed as close to zero as you can when you land. C w you land safely on the 


moon.' 


▲•10 CLS 

20 PRINT "MOONLANDER" 

30 LET T=0 
40 LET H=500 
50 LET V=50 
60 LET F=120 

70 PRINT "TIME";T, "HEISHT";H 
80 PRINT "VEL. ";V, "FUEL";F J 


Notice the commas and semi 
colons in lines 70 and 80. 
Experiment with leaving 
them out and changing them 
round to see what happens. 




/ * V /'M 


90 IF F=0 THEN GOTO 140 


100 PRINT "BURN? (0-30)" 
110 INPUT B 

120 IF B<0 THEN LET B=0 
130 IF B>30 THEN LET B=30 
140 IF B>F THEN LET B=F 


150 LET Vl=V-B-*-5 
160 LET F=F-B 

170 IF (V1+V)/2>=H THEN GOTO 220 



180 LET H=H-(Vl+V)/2 
190 LET T=T+1— — 
200 LET V=V1 


210 GOTO 70 " ■ 

220 LET Vl=V+(5-B) *H/V 

230 IF VI >5 THEN PRINT "YOU CRASHED-ALL DEAD" 

240 IF VI >1 AND Vl<=5 THEN PRINT "OK-BUT SOME INJURIES" 
250 IF VK = 1 THEN PRINT "GOOD LANDING." 

260 STOP 

The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 

•10 HOME 

AlO PRINT CHR^(147) 

12 See page 2 for meaning of 



Puzzle corner 

You could make the game easier by increasing 
the ma3dmum speed allowed for a safe landing. 
How would you change the program to do this? 


How the program works 


Sets the starting values for 
time, height, speed and fuel 
and prints them. 

m * 

If you have no fuel left, 
computer jumps down the 
program, bypassing the 
section which asks you for a 
bum. It then prints a running 
commentary of your progress 
as you approach the moon’s 
surface. 


Gets a number from you for 
the amount of fuel you wish to 
bum and checks it is within 
the correct limits. 


Calculates your new speed, VI. 


Calculates your new fuel level. 

• Checks if the distance 
travelled in your last go is 
greater or equal to your 
height above the moon. If it 
is, you’ve landed. Computer 
then jumps down program to 
see how good a landing you 
made. 

Calculates your new height. 
Increases time by 1. 

• Puts your new velocity into V 
so it will print in line 80 for 
your next go. 

Goes back to beginning of 
loop for next go. 

Calculates your speed on 
touch-down and checks what 
kind of landing it gives you. 


Adding to the program 

If you add the following lines, you will see a star 
printed each go. The distance of the star &om 
the left-hand side of the screen corresponds to 
your height above the moon. 

05 FOR 1=2 TO H/500*nn 

86 PRINT " 

87 NEXT I 

88 PRINT "»’• 

Replace nn with the width of your screen. 

Changes to try 

Try changing the values of H, V and F in lines 40 
to 60 and see what happens. 



Monsters of Galacticon 


Landing on Galacticon was easy- 
but no-one warned you that some of 
the nastiest monsters in the known 
Universe are to be found there. 

As each monster threatens, you 
must choose one of your weapons - 
a ray gun, a trypton blaster or a 
sword laser- to use against it. Can 
you make the right choices? If so, 
you may live to conquer Galacticon. 



10 PRINT "MONSTERS OF GALACTICON" 


20 DIM MS (4) 


30 LET N=4 


40 LET M=5 


190 PRINT 
200 PRINT 



50 LET MS(1)="SULFACID0R” 
60 LET MS(2)="FLAMG0NDAR" 
70 LET MS(3)="BALN0L0TIN" 
80 LET MS(4)="G0LAND0R” _ 
90 FOR 1=1 TO N 
★■A#100 LET A=INT(RND*N-H) 

LET B=INT(RND*N+1) 

120 LET TS=MS(A) 

130 LET MS(A)=MS(B) 

140 LET MS(B)=TS 
150 NEXT I 


160 FOR T=1 
A#170 CLS 
★■A#180 LET R=INT(RND$N+1) 


"MONSTER COMING 
"IT'S A ";MS(R> 


210 PRINT "WHICH WEAPON ? (R,S OR T) 
220 INPUT RS 

s^BA#230 LET W=CODE (RS) -54+R 
★■A240 LET W=W-3$(W>3)-3*(W>6) 


250 IF W=2 THEN GOTO 300 


How the 
program works 

Sets up a storage place (an 
“array”) labelled M$ with 4 
compartments in it - M$( 1 ), 
M$(2), M$(3) and M$(4) - one 
for each monster name. 

■ Sets the number of monsters 
to 4. 

* Sets the number of people in 
your group to 5. 

Puts the 4 monster names into 
the array. 

These lines shuffle the 
monsters up. Computer loops 
round N times. Each loop, it 
selects two numbers between 
1 and N and switches the 
names in the compartments 
with those numbers. T$ is a 
temporary string used during 
the switch round process. 

Beginning of loop for 8 turns. 
Clears screen 

Chooses one of the monsters 
and prints its name. 

The computer uses the values 
in R and R$ to work out a 
weapon number, W, which 
willbel,2or3. 

If W is 2, the computer jumps 
to 300 to say you’ve killed the 
monster. 










260 IF W=3 THEN GOTO 320 
270 PRINT "NO USE. IT'S EATEN ONE" 
280 PRINT "OF YOUR GROUP" 

290 GOTO 360 

300 PRINT "YOU'VE KILLED IT" 

310 GOTO 380 
320 PRINT "NO EFFECT" 

^*^■▲•330 IF RND>.4 THEN GOTO 380 

340 PRINT "YOU ANGERED THE ";M^(R); 
350 PRINT "KILLED ONE OF YOUR GROUP 


AND IT 


j 


. If W is 3, computer jumps to 
320 to say ‘‘no effect”. 

^ Prints if W is notZ or 3. Then 
" jumps to 360 to decrease 
number of people in group by 
one. 

Leading on from the “no 
effect” line is a random 
possibility of the monster 
being angered and killing 
someone. 


360 

370 

380 

390 

400 

410 

420 

430 

440 

450 


LET M=M-1 
IF M<1 THEN 


GOTO 440 


o} 


TO 20 




FOR 1=1 
NEXT I 
NEXT T^ 

PRINT "YOU HAVE 
PRINT "CONQUER 
STOP 

PRINT "YOU'RE ALL DEAD" 
STOP 


SURVIVED TO 
GALACTICON" 




Checks if you still have some 
people left. If you haven’t it 
jumps to 440 to teU you. 

Delay loop to keep messages 
on screen long enough for 
you to read them. 

Goes back for next turn. 

Prints if you still have people 
left after all your turns. 



The above listing will work on a ZX81. For 
other computers, make the changes below. 

■ 100 LET A=INT(RND(0) SN'i-l) 

★a# 100 LET A=INT(RND(1)*N-H) 

■110 LET B=INT(RND(0) *N+1) 
★A#110 let B=INT(RND(1)SN+1> 

•170 HOME 

A 170 PRINT CHRS<147) 

■ 180 LET R=INT(RND(0) 

★A#180 LET R=INT(RND(1) *N-H) 

^it^A023O LET W=ASC(RS)-81-i'R 

S230 LET W=C0DE(RS)-81+R 
★■A240 LET W=W+3t (W>3)+3S(W>6) 
★A#330 IF RND(1)>.4 THEN GOTO 380 


■ 330 

'^■A#380 


IF RND(0)>.4 THEN GOTO 380 
FOR 1=1 TO 300 


1 

Puzzle corner 


L There are at least four 

1 

ways of making this game 


harder. 

1 iskp o qJL 

Can you work out what 


they are? 




Alien Snipers^ 


You are the captain of an interstellar cruiser . 
which, through damage to one of its hyperspace ^ 
"^^.^motors, has strayed into a forbidden area. Alien sniper 
'ships are attacking you and, to make things worsei'iue 
using a jamming device on your radar which makes it give 
'7 false readings. Luckily your computer knows a code which you 

use to work out the correct locations of the enemy ships. But you — ^ 

must be quick - they don’t stay in one place for long! 

Your computer will print a letter (the false enemy location) and a code 
number. You must think through the alphabet by that number of lettei^ and 
type in the letter you get to. E.g. for M 4, you must type Q, and for C 2, you miist 
type E and so on. Typing in a letter automatically triggers off your laser 
gun, so if your letter is correct you’ll score a hit. You can choose the 
d^cnlty of each game. This is a number between 1 and 10 and is the 
maximum number of letters to be added on each time. 

/ You get 10 alien snipers each game. See how many you can hit. 




A01O CLS 

20 PRINT "ALIEN SNIPERS" 

30 PRINT 
40 PRINT "DIFFICULTY (1-10)" 

50 INPUT D 

60 IF D<1 OR D>10 THEN GOTO 50 
70 LET S=0 1 



How the program works 


Gets a difficulty number from 
you, puts it in D, and checks it 
-is within the correct limits. 


■ Sets opening score to zero. 


80 FOR G=1 TO 10 


s^BA#90 let LS=CHRS(INT(RND* (26-D)+38) )• 


★■AOIOO LET N=INT(RND*D-H)- 


- Beginning of loop which 
gives you 10 goes. 

- Selects a letter between A 
and the letter which is your 
difficulty number before the 
end of the alphabet. 

-Selects a number between 1 


110 CLS 
120 PRINT 
130 PRINT L% 




andD. 


-Prints the letter and the 
number. 


^140 FOR 1=1 TO 20+D*5 
uTi50 let IS=INKEYS 

160 IF ISO"" THEN GOTO 190 
170 NEXT I 


Checks if you are pressing a 
- key and jumps to 190 if you 
are. 


180 GOTO 200- 



^ chart 
For coMMcSTk 

NuHecRS 



-If you didn’t press a key, 
computer jumps to line 200 
which sends it back for 
another go. 


★■A0190 IF IS=CHRS(CODE(LS)-i-N) THEN LET S=S+1 
200 NEXT G — — 


Checks if yon 
the pressed 
right key and, 
if so, increases 
. your score by 1. 


210 PRINT "YOU HIT "5S;"/10" 
220 STOP 


End of loop. Goes back for 
another turn. 


■ Prints score after 10 goes. 


The above listing will work on a ZX81. For 
other computers, make the changes below. 

•10,110 HOME 

AlO, 110 PRINT CHRS(147) 

■90 LET LS=CHRS<INT<RND(0)*(26-D)-»-65)) 
★a#90 let LS=CHRS(INT(RND<1)*<26-D)*^65)^ 

S90 LET LS=CHRS(INT(RND t (26-D)+65)) 

■lOO LET N=INT(RND(0)$D+1) 

★ABIOO LET N=INT(RND(1)*D+1) 

★■A 140 FOR 1=1 TO 200+0*50 
• 140 FOR 1 = 1 TO 100+0*50 
•145 IS=”” 

★150 LET IS=INKEYS(1) 

A150 GET IS 

•150 IF PEEK (-16384) >127 THEN GET IS 
■A^190 IF IS=CHRS(ASC(LS)+N) THEN LET S=S+1 


How to change the 
speed 




If the game is too quick for 
you, put a higher number 
into the middle of line 140 
(Le. to replace 20 or 200). 

Y on can speed it up with a 
lower number., 


How to make the game harder 


You could change the 1 in lines 40 and 
60 to, say, 3 to allow difficulties of only 3 


or more. 


Puzzle corner 
Can you adjust the scoring so that it fits 
the code number i.e. you score 1 point if 
the code is 1 , 2 points if the code is 2 and 
soon? 








Asteroid Belt 


You are on a trip through the Asteroid Belt. To avoid crashing into 
the asteroids, you must destroy them and the force required for 
doing this depends on their size. 

Asteroids appear on your computer screen as groups of stars. To 
destroy them you must press the number key corresponding to the 
number of stars. Be prepared - asteroids come at you thick and 
fast. 


How the program works 


10 PRINT "ASTEROID BELT" 
20 LET S=0 "" 


Sets the opening score to 
zero. 


Starts a loop which gives 10 
goes. 


30 FOR G=1 TO 10 
A#40 CLS 


Chooses a number 
for the position of the 
asteroid across the screen. 
Pats this in A. 


★■A#50 LET A=INT(RND»18+1) 




★■A«60 LET D=INT(RND«12+1) 


Chooses a number (1 to 12) 
for the position of the 
asteroiddown the screen and 
putsitinD. 


★■A#70 LET N=INT<RND*9+1) 

80 FOR 1=1 TO D 
90 PRINT — 

100 NEXT I 


Chooses a number (1 to 9) for 
the number of stars in the 
asteroid. 

Moves the cursor Dlines 
down the screen. 


110 FOR 1=1 TO N 

120 IF lOi AND 104 AND 107 THEN GOTO 150 

130 PRINT 

140 PRINT TAB (A); 

150 PRINT 

160 NEXT I _ 


Loops round N times 
printing astareach 
time in it 9 appropriate 
position. 


170 PRINT 

★■A#180 for 1 = 1 TO 10 
★a#190 let Q=VAL("0"+INKEYA) 
200 IF Q<X> THEN GOTO 240 
★210 NEXT I 


Loops round to see if you are 
pressing a key and jumps to 
240 if you are. 


220 PRINT "CRASHED INTO ASTEROID 
230 GOTO 290 


■} 


Prints if you run out of time. 

Checks if your number is the 
same as N and jumps to 270 if 
it isn’t 


240 IF Q<>N THEN GOTO 270 





250 PRINT "YOU DESTROYED IT 


Prints if yon pressed the right 
number* 


260 LET S=S+1 


T Compares yonr number with 

N and prints an appropriate 
message. 


270 IF Q<N THEN PRINT "NOT STRONG ENOUGH" 
280 IF Q>N THEN PRINT "TOO STRONG" 


Delay loop to keep messages 
on screen long enongh for 
yon to read them. 


★■a#290 for 1 = 1 TO 50 
300 NEXT I 


310 NEXT G 


Goes back for another go 


320 PRINT "YOU HIT 
330 STOP 


;S;" OUT OF 10 


Prints yonr score after 10 
goes. 


The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 


Changing the speed 
of the game 


•40 

A40 

■50 

1^A#50 

■60 

iArA#60 

■ 70 

ifAmvO 

• 175 

★ 180 

■A^iao 

A 190 

★ 190 

★ 190 

★ 210 
★■290 
A^290 


HOME 

PRINT CHRe(147) 

LET A=INT(RND(0)tl8+l) 
LET A=INT(RND(1)$18+1) 
LET D=INT(RND(0)»12+1) 
LET D=INT(RND(1)»12>1) 
LET N=INT(RND(0)»9+1) 
LET N=INT(RND(1) *9+1) 


Line 180 (190 for the BBC) 
controls how much time 
you have to press a key. 
Change the last number in 
180, or the number in 
brackets in the BBC line 
190, to a lower number to 
speedup the game. 


Q=0 


FOR 1=1 TO 100 
GET Q 

IF PEEK (-16384) >127 
Q=INKEY(100)-48 


Puzzle corner 


THEN 


GET 


Can you adapt the scoring 
system so that, for each 
asteroid, yon get the same 
number of points as there 
are stars in it? 


FOR 

FOR 


1=1 


TO 


500 

250 


1=1 


TO 


See page 2 for meaning of 







Trip into the 

Imagine yon are in a 
spaceship travelling 
nearly cm fast as light. 

Strangely time is 
passing more slowly 
inside your spaceship / 
than outside. So, 
having set off on a long, 
fast space trip, you 
can return to Earth 
further in the future 
than the clocks inside 
your ship indicate. 

In this game, your 
computer tells you 
how many years must 
elapse on Earth 
before yon return. 

You then decide the 
length of your trip (in 
light years) and the 
speed of your ship (as 
a fraction of the speed of 
light) in order to achieve 
this. Take care not to 
travel too far too slowly or 
yon will die of old age on the way. 






A«10 CLS 

20 PRINT "TRIP INTO THE FUTURE" 
★■a«30 let T=INT(RND*100+25) 

40 PRINT "YOU WISH TO RETURN ";T 
"YEARS IN THE FUTURE." 


50 PRINT 
60 PRINT 

70 PRINT 
80 INPUT 


( 0 - 1 ) " 


"SPEED OF SHIP 
V 

90 IF V>=1 OR V<=0 THEN GOTO 70 

100 PRINT "DISTANCE OF TRIP" 

110 INPUT D 
120 LET T1=D/V 


■} 


How the program works 


Chooses a whole naniber 
between 25 and 124 for the 
years which must elapse 
before yonr retam, and prints it. 


Gets a speed from yon and 
checks it is nrithin the correct 
limits. 

- Gets a distance from yon. 

Calculates the time taken 
inside the ship. 


5ee page 2 for meaning o/ • a ■ ★ 
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rrm 
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130 LET T2=T1/SQR(1-V$V)' 


140 PRINT "YOU TOOK T1 ; "YEARS" 

150 PRINT "AND ARRIVED ";T2; "YEARS" 
160 PRINT "IN THE FUTURE." 

170 IF Tl>50 THEN GOTO 210 — 


■ Calculates the time taken 
outside the ship (Le. on 
Earth). 

■ Prints these times. 


- Checks if you took longer 
than your lifetime (50 years). 
Jumps to line 210 if you did. 


180 IF ABS(T-T2)<=5 THEN PRINT "YOU ARRIVED ON TIME"| 
190 IF ABS(T-T2)>5 THEN PRINT "NOT EVEN CLOSE" 

200 STOP 

210 PRINT "YOU DIED ON THE WAY" 

220 STOP 


Checks if 
you were 
-within 
5 years 
and prints 
a message. 


The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 
•10 HOME 

AlO PRINT CHR4(147) 

■30 LET T=INT(RND(0) *100+25) 
★a#30 let T=INT(RND(1) *100+25) 


Puzzle corner 

Can you work out how to change the 
program to do the following things? 

1) Give a wider range of years which 
must elapse before you return to Earth. ^ 

2) Increase the accuracy required from 
¥^thin 5 years to within 2 years. 

3) Shorten or lengthen your lifetime. 
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Death Valley 


There is only one way to escape the forces of the evil Dissectitrons. You 
will have to steel every nerve and fly your single-seater Speed Dart 
along the jagged, bottomless ravine known as Death Valley. 

Your computer will ask you for the width of the valley. 1^ 15* first and 
then work your way down - 8 is quite difficult. Steer your Speed Dart by 
pressing Q to go left and P to go right, and see if you can make it safely 
through Death Valley. 

*If you are using a VIC 20, then use widths of 6 to 10. 



rmiMva 


UZL 


AH JTM. IV / 


10 PRINT "DEATH VALLEY" 
20 LET S=0 — 


30 LET M=200'- 


40 PRINT "WIDTH?" 
50 INPUT W 
60 LET W=INT(W/2) 


A70 LET 
80 LET 
90 LET 


L=io"n 
Y=W I- 
R=W J 


} 


Edy* 
of screen 




(= lOnt 
stnxt) 


★■A# 100 LET D=INT(RND»3-1) ■ 


no IF L-^D<0 OR L+D>20 THEN GOTO 100 


120 LET L=L+D 
130 LET Y=Y-1 
140 LET R=R+D 


4 

dJ 


+D 


8^BA«145 SCROLL 
150 LET N=L 
160 60SUB 1000 
170 PRINT "I"; 


180 LET N= 
190 GOSUB 
200 PRINT 


210 LET 
220 GOSUB 
230 PRINT 


N=Y "I 

IB looo r 

IT J 

N=R H 
IB 1000 L 
IT "I" J 


★a#240 let I A= inkey a 


250 IF IAO"Q" THEN GOTO 280 


260 LET Y=Y- 
270 LET R=R+1 


:} 


How the program works 

Sets the number of goes used 

- to zero for start of game. 

■ M is the maximum number of 
goes aUowed. 

Gets a width number from 

- you, divides it by 2 and uses 
INT to remove any halves. 


L, Y and R are the distances 
-between walls and Speed 
Dart. 


Rspaces 


(=Wal 

aUit) 


(=Wat 

stnxt) 


-Selects - 1, 0 or + 1 and puts it in D. 


Checks L+D isn’t so big or 
small that columns disappear 
off sides of screen. 


- Changes spaces between 
columns according to the 
value of D. 


-D 


+D 


Moves cursor L spaces 
across the screen and prints 
■ I. (The semi-colon then stops 
the cursor going down to the 
next line.) 


Moves cursor a further Y 
- spaces and prints. * 


Moves cursor a further R 
spaces and prints another I. 
(No semi-colon this time, so 
■the cursor then goes down to 
the next line.) 


> Checks to see if you are 
pressing a key. 


• If the key you are pressing is 
not Q, computer jumps to 280. 


-V 


■ If key is Q then Y is 
decreased by one andR 
increased by one so star 
moves left. 


- Checks if key being pressed is P. 


280 IF IAO"P" THEN GOTO 310 








290 LET Y=\ 
300 LET 


310 IF Y<1 OR R<1 THEN GOTO 370 


320 LET S=S-H. 


330 IF S<M THEN GOTO lOO- 


'•WELL DONE- YOU MADE IT" 
"THROUGH DEATH VALLEY" 


"YOU CRASHED INTO THE WALL* 
"AND DISINTEGRATED" 


340 PRINT 
350 PRINT 
360 STOP 
370 PRINT 
380 PRINT 
390 STOP 

lOOO IF N=0 THEN RETURN 
1010 FOR 1=1 TO N 
1020 PRINT " "; 

1030 NEXT I 
1040 RETURN 


The above listing wiU work on a ZX8 1 . For 
other computers, make the changes below. 

A 70 LET L=4 

■lOO LET D=INT(RND<0) $3-1) 

★a#100 let D=INT(RND(1)$3-1) 
sMa«145 

•235 !♦="" 

A 240 GET IS 
★240 LET IS=INKEYS(1) 

•240 IF PEEK (-16384) >127 THEN GET IS 








If so, star is moved right by 
- increasing Y by one and 
decreasing R by one. 


- Checks if yon have crashed 
into a wall. Jumps to 370 to 
tell yon if yon have. 

■ Increases number of goes 
used by one. 


- Goes back for another turn if 
yon have had less than M goes. 


■ Prints if yon have had M goes 


and no crash. 


Snb-rontine for moving the 
cursor to the appropriate 
-places for printing I and 


Slowing down the 
game 

If this game is too fast for 
you, you can add a delay 
loop at lines 141 and 142: 

141 FOR J=1 TO lOO 

142 NEXT J 

Change the number in line 
141 to adjust the speed- 
the lower the number the 
faster the game. 


mji rfw 


j 



^ Puzzle corner | 

1 



^now can you make the 1 


^ valley longer? 1 

1 







Space Mines 




10 

20 

30 

40 

>50 


You are the newly elected leader of a mining 
colony on the Planet Astron. All decisions 
concerning the sale of ore to Intergalactic 
Traders, food purchase and sale and purchase of 
mines are made by you. Can you keep the people 
satisfied and survive your 10 yecus in office or 
will life in the colony end in disaster under your 
rule? 


LET L=INT(RND*3+5) 

LET P=INT(RND*60+40) 
LET M=INT(RND*50+10)*P 
LET FP=INT(RND*40+80) 
LET CE=INT(RND»40+a0) 


How the program works 

These lines decide the number of 
mines (L), number of people (P), 

- amount of money (M), price of 
food (FP) and amount of ore 
produced per mine (CE) for the 
start of the game. 


60 LET C=0 


Sets the amount of ore in 
storage to zero for start. 


70 LET s=l ■— ■■ ■ — — Sets the satisfaction factor to 1. 

80 LET Y=1 Sets the year number to 1. 


★■A#90 LET LP=INT(RND»2000+2000) 


Selects buying/selling price 
for mines. 


'^^■▲•iOO 
A# 110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 

240 

250 

260 

270 


LET CP=INT(RNDtl2+7) 

CLS 

PRINT ”YEAR";Y 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT "YOUR MINES PRODUCED 
LET C=C-^CE»L 
PRINT "ORE IN STORE=* 

"SELLING” 

"ORE SELLING PRICE=";CP 
"MINE SELLING PRICE=" ; LP; "/MINE" 

"HOW MUCH ORE JO SELL?” 

CS 

CS>C THEN GOTO 240 


‘ Selects selling price for ore. 


"THERE ARE ”;P;" PEOPLE IN THE COLONY." 
"YOU HAVE ”;L;" MINES, AND i>"M 
"SATISFACTION FACTOR ”;S 


•;CE;” TONS EACH" 


’;C;" TONS" 


PRINT 
PRINT 
PRINT 

PRINT 
INPUT 
IF CS<0 OR 

LET C=C-CS 


Prints current state 
- of affairs in the 
colony. 


} 


Asks how much ore you want 

> to sell, puts it CS and checks 
you’ve got that much in store. 

> Takes amount sold away 
from amount in store. 


280 LET M=M-t-CS>CP ■ ■■■ - ■ ■ ■— 

290 PRINT "HOW MANY MINES TO SELL?^ 
300 INPUT LS 

310 IF LS<0 OR LS>L THEN GOTO 290 
320 LET L=L-LS 

330 LET M=M+LS»LP - 


Works out how much ore sold 
is worth and adds this to your 
money supply. 

Does the same process for 
selling mines. 


340 PRINT 

350 PRINT "YOU HAVE A" 
360 PRINT 


M 


] 


Prints your new money supply. 


370 PRINT "BUYING" "1 Askshow 
380 PRINT "HOW MUCH TO SPEND ON FOOD ? (APPR. %100 EA. ) mucbyou 
390 INPUT FB J want to 


spend on food and puts this in FB. 


400 IF FB<0 OR FB>M THEN GOTO 380 
410 LET M=M-FB ■■ ■ 


Checks you have enough 
money to pay. 

Adjusts your money supply. 



IF FB/P>120 THEN LET S=! 
IF FB/P<80 THEN LET S 


] i I * . 

___ 


Adjusts satisfactioa fiutui i 
according to how much you 


440 PRINT "HOW MANY MORE MINES TO BUY?” 
450 INPUT LB 

460 IF LB<0 OR LBtLP>M THEN GOTO 440 
470 LET L=L+LB ■ ■ - 


spent on food. 


Asks how many mines you 
- want to buy and checks you 
can afford them. 


480 LET M=M-LB»LP- 


490 IF S<-6 THEN GOTO 660- 


★■A#500 IF S>1.1 THEN LET CE=CE-HNT (RNDt20+l ) < 


- Increases number of mines if 
necessary. 

" Adjusts your money again. 

- Checks on value of 
satisfaction factor. If this is 
very low, computer jumps to 
660 to end the game. 

- If S is high then amount 
produced per mine is 
increased. 


★■A#510 IF S<.9 THEN LET CE=CE-INT (RND$20-i*l ) • 


- If Slow, amount produced is 
decreased. 


520 IF P/L<10 THEN GOTO 680- 


^■A#530 

^■A054O 

550 


IF S>1.1 THEN LET P=P+INT (RND* 10+1 ) • 
IF S<.9 THEN LET P=P-INT (RND* 10+1 ) - 
IF P<30 THEN GOTO 700 ■ 


★■A056O IF RND>.01 THEN GOTO 590 

570 PRINT "RADIOACTIVE LEAK MANY DIE" 

580 LET P=INT<P/2) 

590 IF CE<150 THEN GOTO 620 
600 PRINT "MARKET GLUT - PRICE DROPS 
610 LET CE=INT(CE/2) 




■V 


If there are less than 10 
people per mine, game is over. 

More people arrive if S is high. 
People leave if S is low. 

If there are less than 30 
people, game is over. 


Introduces small chance of 
half the people being lolled. 


If the amount produced per 
' mine is very high, ore price is 
halved. 


620 LET Y=Y+1 


•THE PEOPLE REVOLTED" 
•YOU'VE OVERWORKED EVERYONE 
•NOT ENOUGH PEOPLE LEFT" 


630 IF Y<11 THEN GOTO 90 

640 PRINT "YOU SURVIVED YOUR TERM OF OFFICE’ 
650 STOP 
660 PRINT 
670 STOP 
680 PRINT 
690 STOP 
700 PRINT 
710 STOP 

The above listing will work on a ZX81. For 
other computers, make the changes below. 

• no HOME 

Alio PRINT CHR«(147> 

★a# 10, 20,30.40,50,90, 100,500, 510, 530,540. 560 
change RND to RND(l) 

■10,20,30,40,50,90, 100, 500, 510, 530,540, 560 
change RND to RND<0) 


Year number increased by 1 
and if it is less than 1 1, 
computer goes back to 90 for 


" I ano ther go 


Prints if the computer 
reaches this stage in the 
program on your 10th go. 



uzzle corner 


Can yon make the 
computer ask if you would 
like another game and add 
the money yon have ended 
up with to the new money 
supply for the next game? 


See page 2 for weaning of 
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Space Rescue 

You must make an urgent trip across the spiral arm of the Galaxy to a « 

developing planet which is in need of medical supplies. The trip involves 
such huge distances that for most of it you will be in a deep sleep, but before 
■ this you must program the ship for the j oumey . The computer will ask how 
much energy you want to allocate to the engines, life support system and 
shields and then put you to sleep. * w 

When you wake up, it will give you a report on what happened during the 
trip and, if all went well, you will be orbiting the planet. Y ou must now 
allocate your remaining energy to the landing boosters and shields in order 
to make a good landing on the planet. 

^ Ifyou accomplish the mission safely, you stand a good chance of being 
promoted to Space Admiral. Good luck! 


A«lO CLS 

. 20 PRINT "SPACE RESCUE" 

30 PRINT 

40 PRINT "DO YOU WANT INSTRUCTIONS? " 

50 INPUT I* 

★■a*60 if i*(1)="Y" then GOSUB lOOO 
' ★■A*70 LET D=INT(RND*800+101) 

★■A#80 LET E=INT(RND»400+401) 

90 LET T=INT(D/SQR(E/5)+.5> • 

. lOO PRINT "THE PLANET IS ";D;” UNITS AWAY" 
no PRINT "YOU HAVE ";E;" UNITS OF ENERGY" 
120 PRINT "AND A TIME LIMIT OF ";T;" DAYS" 
130 PRINT 

140 PRINT "ENERGY DISTRIBUTION:" 

150 PRINT "TO ENGINES?" • > 

160 INPUT P 

170 PRINT "TO LIFE SUPPORT?" 

180 INPUT L 

190 PRINT "TO SHIELDS?" 

200 INPUT S ■ . 

210 IF P+L+S>E THEN GOTO 140 
220 LET X=E-P-L-S 

■ 230 LET V=INT<SQR(P) ) . 

240 LET T1=INT<D/V) 

^»250 CLS 

*260 PRINT "YOUR VELOCITY IS ";V • 

270 PRINT "YOU HAVE AN ETA OF ";T1;" DAYS" 
280 PRINT 

★■a*290 for 1=1 TO INT(RND*5+6) 

★■A*300 IF RND>.5 THEN GOTO 430 * ' ‘ . 

★■A*310 GOTO 320+INT(RND*4) »30 • • • «- • • 

26 320 PRINT "ASTEROID STORM - SHIELDS DAMAGED” 



★■a*330 let S=S-20-INT(RND*40+1 > • 

• 340 GOTO 430 

350 PRINT "COMPUTER BREAKDOWN - DELAY IN REPAIRING" 
★■a»360 let D=D+INT(RND*20+1> 

370 GOTO 430 

380 PRINT "ENGINE TROUBLE - MUST SLOW DOWN" 

. . 390 LET V=V-.5 . . 

400 GOTO 430 

410 PRINT "X-RAY DAMAGE - LIFE SUPPORT DAMAGED" 

420 LET L=L-20-INT(RND*40+l) 

★■a*430 for J=1 TO 50 . 

440 NEXT J:.- ■ V. ■ " 

450 NEXT I 

460 LET T1=INT(D/V) ' 

a»470 CLS ’ ■ ■ 

480 PRINT "ARRIVED IN ";T1;" DAYS" , 

,490 IF S<0 THEN PRINT "SHIELDS DESTROYED" 

,495 IF S<0 THEN PRINT "YOU WERE BLOWN UP” ' 

• 500 IF L<=0 THEN PRINT "LIFE SUPPORT INACTIVE”' 

505 IF L<=0 THEN PRINT "YOU’RE DEAD” 

510 IF V<=0 THEN PRINT "ENGINES ARE NON-FUNCTIONAL” 

. . 520 IF T1>T THEN PRINT "YOU TOOK TOO LONG ABOUT IT” 

530 IF S<0 OR L<=0 OR V<=0 OR T1>T THEN STOP 
★■A*540 LET G=INT(RND*10+5) r . 

550 LET G$="HIGH” • 

560 IF G<12 THEN LET G*="MEDIUM” ■ , - 

570 IF G<8 THEN LET G*=”LOW" 

★ ■a«580 let A=INT<RND»10+5> . . _ * . 

590 LET A«="HIGH" 

600 IF A<12 THEN LET A*=” MEDIUM" " 

610 IF A<8 THEN LET A*="LOW” ; 

620 PRINT . ^ 

630 PRINT "YOU ARE NOW ORBITING THE PLANET” • 

640 PRINT "SURPLUS ENERGY=";X 

650 PRINT "GRAVITY IS " ; G* ’ . 

660 PRINT "ATMOSPHERE IS ";A» 

670 PRINT . • • 

• 680 PRINT "HOW MUCH ENERGY TO BOOSTERS?” 

690 INPUT B * 

700 PRINT "HOW MUCH ENERGY TO HEAT SHIELDS?” 

710 INPUT S . • . 

720 IF B+S>X THEN GOTO 680 
A#730 CLS 

.740 IF B>=G*10 THEN GOTO 770 

. Program continued on next page. 
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‘ • Space Rescue continued 


750 PRINT "YOU MADE A NEW CRATER" . 

760 GOTO 840 

770 IF S>=A*10 THEN GOTO 800 

780 PRINT "YOU MADE A WONDERFUL SHOOTING STAR" 
790 GOTO 840 

800 PRINT "YOU LANDED SUCCESSFULLY - WELL DONE 

810 IF X-S-B>25 THEN GOTO 840 

820 PRINT "PITY YOU DON'T HAVE ENOUGH" 

830 PRINT "ENERGY TO OPEN THE DOOR" 

840 STOP 
1000 PRINT ■ 

1010 PRINT "YOU ARE ABOUT TO EMBARK ON A" 


1010 PRINT "YOU ARE ABOUT TO EMBARK ON A" 
1020 PRINT "MISSION TO A DISTANT PLANET" 
1030 PRINT "IN URGENT NEED OF MEDICAL" 

1040 PRINT "SUPPLIES. YOU MUST FIRST READY" 
1050 PRINT "YOUR SHIP FOR THE TRIP BY" 

1060 PRINT "ALLOCATING SOME OF THE SHIP'S" 
•1070 PRINT "ENERGY TO THE ENGINES, SHIELDS" 

. 1080 PRINT "AND LIFE-SUPPORT. YOU ARE" 

1090 PRINT "THEN PUT TO SLEEP FOR THE MAIN" 
1100 PRINT "PART OF THE TRIP, AFTER WHICH" 
1110 PRINT "YOU WILL GET A REPORT OF THE" 
1120 PRINT "EVENTS ON THE WAY. YOU MUST" 

1130 PRINT "THEN LAND ON THE PLANET " 

• 1140 PRINT "PRESS ANY KEY" 

★■a«1150 if INKEY<="" then GOTO 1150 
A«1 160 CLS 

1 1 70 RETURN ■ ! 


The above listing will work on a ZX8 1 . For 

other computers, make the changes below. • * 

■all RND to RND(O) . 

★A*all RND to RND(1> 

•10,250,470,730,1160 HOME 
AlO, 250, 470, 730, 1160 PRINT CHR*(147) 
★■A»60 IF LEFT^d*, 1)="Y" THEN GOSUB lOOO 
^ ★■A*310 ON INT(RND*4+1) GOTO 320,350,380,410 

. '•a#430 for J=1 TO 500 
★430 FOR J=1 TO 1000 

★ 1 1 50 I =GET • • . ■ • 

• 1150 GET It ; . ■ • *.. 

■ A 1150 GET It : IF* It="" THEN GOTO 1150 


¥ 


.V 



... .V 
■>. ' 
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Adding to the game 


This game is really made up of two parts. In the first part you set off on your 
space journey with the aim of orbiting the planet and in the second you 
attempt to land on the planet. You could perhaps try adding a third part in 
which you make the treacherous crossing from the landing site to the 
Intergalactic Red Cross H.Q. 



Touchdown 


This game is different from the others in this book because it uses graphics. 
As the computers vary so much in the way their graphics work, there is a 
separate program for each one. Read the instructions on this page for how 
to play the game and then look through the pages that follow for the version 
for your computer. 

How to play Touchdown 

Ace space pilot, Captain Flash, is sitting next to you as you take the final 
part of your Advanced Spacecraft Handling Test (Part III). Your 
lightweight, two-man landing craft is rapidly approaching the Moon’s 
surface. Your velocity must be almost zero as you touch down. Deftly you 
control the thrust, pressing A to increase it and D to decrease it*, watching 
your progress on the screen all the time. If you use too much thrust you will 
begin to go back up again. Too little and you will make a new crater on the 
Moon. Can you impress Captain Flash with your skill ? 

*For VIC, use the cursor down key to increase thrust and the cursor right 
key to decrease it. 


Touchdown: TRS-80 version 

20 CLS 

30 CLEAR 200 

31 B^=STRING< (25, 131 ) 

33 M1^=CHR«(194>+STRING^(2, 176) 

34 M2^=” "+STRING^(4, 191 ) 

35 M3^=CHR^ (131) +CHRS (135) I NG$ 

(2,131) +CHR^ (139) +CHR% (131) 

40 GOSUB 250 
50 GOSUB 300 
60 C=l: GOSUB 390 
70 A= 1 : B=F : GOSUB 460 
80 A=2:B=ABS(V) : GOSUB 460 
90 A=3:B=H: GOSUB 460 
100 A=4:B=T: GOSUB 460 
no GOSUB 530 

120 Vl=V-T/20+G : F=F-T/10 

130 H1=H-(V+V1)/10 

140 C=0: GOSUB 390 

150 IF HKO THEN 200 

160 H=H1:V=V1 

170 IF H<=100 THEN 60 

180 GOSUB 590 

190 GOTO 220 

200 H=0:C=1: GOSUB 390 

210 GOSUB 660 

220 END 

250 H=100:F=100:T=0 
260 V=INT(RND(0)»10+6) 

270 G=INT(RND(0) *40+41 )/100 

280 RETURN 

300 FOR X=80 TO 127 

320 SET (X,47-INT(RND(0) *5) ) 

330 NEXT 

340 PRINT "GRAVITY=";G 
^ 350 PRINT 3192, ’’FUEL: " 

30 


355 PRINT 3384, ”VEL:” 

360 PRINT 3576, ’’HEIGHT: ** 

365 PRINT 3768, ’’THRUST: ” 

370 RETURN 

390 Y=818-64*INT (H/8) 

400 PRINT 3Y,; : IF C=1 THEN PRINT 

Ml*; ELSE PRINT CHR*(196); 

410 PRINT 3Y+64,; : IF C=1 THEN 

PRINT M2*; ELSE PRINT CHR* 

(198) ; 

420 PRINT 3Y+128,; : IF C=1 THEN 

PRINT M3*; ELSE PRINT CHR* 

(198) 

440 RETURN 

460 Y=(A*3+1)*64 

470 PRINT 3Y,CHR*(217) ; 

480 PRINT 3Y,LEFT*(B*,B/4) ; 

510 RETURN 
530 I *= INKEY* 

540 IF I*="A” THEN T=T+4 : IF 

T>100 THEN T=100 
550 IF I*=”D” THEN T=T-4 : IF 

T<0 THEN T=0 
560 IF T>F THEN T=F 
570 RETURN 
590 CLS 

600 FOR 1=1 TO 20 

610 PRINT 3INT(RND(0)*1024),"*" 

620 NEXT 

630 PRINT 3470, "LOST IN SPACE*!" 

640 RETURN 
650 CLS 

660 PRINT "LANDED AT VEL 
INT( (V+V1)*5)/10 

670 IF (V+V1X8 THEN PRINT "SAFELY" 
ELSE PRINT "ALL DEAD" 

680 RETURN 



Touchdown: VIC 20 version 

20 PRINT CHR* < 147)CHR* (5) ; 

25 POKE 36879,8 

30 DEF FNR(X)=INT<RND(1)*X+1) 

40 GOSUB 250 

fit.) GOSUB 300 

60 C=l: GOSUB 390 

70 A=1 :B=F: GOSUB 460 

SO A=2: B=ABS(V) : GOSUB 460 

90 A=3:B=H: GOSUB 460 

100 A=4:B=T: GOSUB 460 

1 1 0 GOSUB 530 

120 Vl=V-T/20+G : F=F-T/10 

130 H1=H-<V*^V1 ) /lO 

140 C=0: GOSUB 390 

150 IF HI ;0 THEN 200 

160 H=H1:V=V1 

170 IF H<=100 THEN 60 

180 GOSUB 590 

190 GOTO 220 

200 H=0:C=1: GOSUB 390 

210 GOSUB 660 

220 END 

250 H= 1 OO 2 F= 1 OO : T=0 
260 V=5+FNR(10) 

270 G=<FNR(40)^40)/100 
280 RETURN 

300 FOR X=8178 TO 8185 
320 POKE X,98+2*FNR(3) 

330 NEXT 

340 PRINT ••GRAVITY=“;G 
350 PRINT "iCTSFUEL: *• 


390 Y=8137-22t INT <H/5) 

400 IF C=0 THEN 425 
405 POKE Y,108 : POKE Y+1 , 123 
410 POKE Y+22, 160 : POKE Y-i-23, 160 
415 POKE Y+44,75 : POKE Y+45, 74 
420 GOTO 440 

425 FOR Z=0 TO 44 STEP 22 

430 POKE Y+Z,32 : POKE Y+Z+1,32 

435 NEXT 

440 RETURN 

460 FOR X=0 TO 9 

470 Y=A*88-^X +7724 

430 IF X<B/10 THEN POKE Y, 102 : 

GOTO 500 

485 IF X<B/10-»'.5 THEN POKE Y,92 : 
GOTO 500 
490 POKE Y,32 
500 NEXT 
510 RETURN 
530 GET 1 % 

540 IF I*=”iO;** THEN T=T+4 : IF T>100 

THEN T=JlOO 

550 IF Ii^=”l3J" THEN T=T-4 : IF T<0 

THEN T=0 

560 IF T>F THEN T=F 

570 RETURN 

590 PRINT CHR$(147) 

600 FOR 1=1 TO 20 

610 POKE 7679-^FNR(506> ,42 

620 NEXT 

630 PRINT "LOST IN SPACE?*" 

640 RETURN 

650 PRINT CHR^( 147) "LANDED" 

660 PRINT "AT VEL " ; INT ( ( ) t5) / 1 0 
670 IF (V+V1X8 THEN PRINT "SAFELY" 

: RETURN 

680 PRINT "ALL DEAD": RETURN 


is cursor down key 
[J] is cursor right key 



355 PRINT " iiaiO VEL ; " 
360 PRINT "iaBBHEIBHTi 
365 PRINT "BiETHRUSTi 
370 RETURN 




Touchdown; ZX81 version 

20 CLS 

30 LET ” C 3 

40 GOSUB 250 
50 GOSUB 300 
60 LET C=1 
65 GOSUB 390 
70 LET A=1 
75 LET B=F 
77 GOSUB 460 
30 LET A=2 
85 LET B=ABS<V) 

87 GOSUB 460 
90 LET A=3 
95 LET B=H 
97 GOSUB 460 
100 LET A=4 
105 LET B=T 
107 GOSUB 460 
110 GOSUB 530 
120 LET Vl=V-T/20+G 
125 LET F=F-T/10 
130 LET H1=H-(V+V1)/10 
140 LET C=0 
145 GOSUB 390 
150 IF HKO THEN GOTO 200 
160 LET H=H1 
165 LET V=V1 

170 IF H<=100 THEN GOTO 60 
180 GOSUB 590 
190 GOTO 220 


510 RETURN 
530 LET I ♦= INKEY* 

540 IF I*="A” THEN LET T=T+4 
545 IF T>100 THEN LET T=100 
550 IF I*="D“ THEN LET T=T-4 
555 IF T<0 THEN LET T=0 
560 IF T>F THEN LET T=F 
570 RETURN 
590 CLS 


200 LET H=0 


600 FOR 1=1 TO 20 


205 LET C=1 
207 GOSUB 390 
210 GOSUB 660 
220 STOP 
250 LET H=100 
252 LET F=100 
255 LET T=0 

260 LET V=5+INT (RND*10+1 ) 

270 LET G=INT (RND»40+40> / lOO 
280 RETURN 

300 PRINT AT 21 , 20; " CSDADSADASD 
340 PRINT AT O, O; "GRAVI TY=" ; G 
350 PRINT AT 3,0; "FUEL:" 

355 PRINT AT 7,0; "VEL;" 

360 PRINT AT 1 1 , O; "HEIGHT: " 

365 PRINT AT 15, 0; "THRUST : " 

370 RETURN 

390 LET Y=(100-H) /6+1 
400 IF C=0 THEN GOTO 425 
405 PRINT AT Y,24;"C343" 

410 PRINT AT Y+1,23;"CQ W3" 

415 PRINT AT Y+ 1 , 23; " [TGGY3 " 
420 GOTO 440 
425 PRINT AT Y,24;" 

430 PRINT AT Y+1,23;" 

435 PRINT AT Y+2,23;" 

440 RETURN 

460 LET Y=A*4 

470 PRINT AT Y,0;TAB(20) 

22^80 PRINT AT Y,0;B*( TO B/5) 


610 PRINT AT INT<RND*22), 
INT<RND*32> ; "*" 

620 NEXT I 

630 PRINT AT 10,10; "LOST IN SPACE" 
640 RETURN 
650 CLS 

660 PRINT AT 20,0; "LANDED AT VEL " 

; INT< (V+Vl ) *5) /lO 

670 IF (V+V1X8 THEN PRINT "SAFELY" 
675 IF (V+V1)>=8 THEN PRINT 
"ALL DEAD" 

680 RETURN 



Special note for 
ZX81 users 

Graphic characters are shown 
in the listing using the 
fol lowing convent i on- A ^ L* 
character means press the 
GRAPHICS key, and then type 
the following 1 et ter s /number s 
SHIFTED until '3’ is 
reached, when you type the 
GRAPHICS key again, and go 
back to normal . 



Touchdown: ZX Spectrum version 

20 CLS 

30 DEF FNr (x )=INT (RND«x+l > 

40 GOSUB 250 

50 GOSUB 300 

60 LET c=0: GOSUB 390 

70 LET a=l; LET b=f ; LET c=2*(f<25) 

75 GOSUB 460 

80 LET a=2: LET b=ABS v: 

LET c=4*(v<0) 

85 GOSUB 460 

90 LET a=3: LET b=h: LET c=2*(h<25> 
95 GOSUB 460 

100 LET a=4: LET b=t ; LET c=0 
105 GOSUB 460 
110 GOSUB 530 

120 LET vl=v-t/20+g; LET f=f-t/10 

130 LET hl=h-<v+vl ) /lO 

140 LET c=l: GOSUB 390 

150 IF hl<0 THEN GOTO 200 

160 LET h=hl; LET v=vl 

170 IF h<=100 THEN GOTO 60 

180 GOSUB 590 

190 GOTO 220 

200 LET h=0: LET c=0; GOSUB 390 
210 GOSUB 660 
220 STOP 

250 LET h=100: LET t=100i LET t=0 
260 LET v=5+FNr(10) 

270 LET 6=(FNr<40)+40)/100 

280 RETURN 

300 PLOT 180,8 

310 FOR x=l TO 15 

320 DRAW 5,FNr(3)-2 

330 NEXT X 

340 PRINT "Gravity=";g 

350 PRINT ” "Fuel : " ’”Vel : " 

360 PRINT "Height: "Thrust: " 

370 RETURN 
390 INVERSE c 


410 PLOT 200, y: DRAW 34,0 

420 DRAW -4,20; DRAW -13,10 

430 DRAW -13,-10: DRAW -4,20 

440 RETURN 

460 LET y=172-a*32 

470 INK c 

480 PLOT 0,y 

490 DRAW b,0 

500 DRAW INVERSE l,100-b,0 

510 RETURN 

530 LET i*=lNKEY* 

540 IF i*="a" THEN LET t=t+4 : 
IF t>100 THEN LET t=100 
550 IF i*=“d" THEN LET t=t-4 : 
IF t<0 THEN LET t=0 
560 IF t>F THEN LET t=F 
570 RETURN 
590 CLS 

600 FOR i=l TO 20 

610 PRINT AT FNr (21) ,FNr (31) ; 

620 NEXT i 

630 PRINT "Lost in space!!!" 
640 RETURN 

650 PRINT AT 0,0; "Landed at "; 

1NT< (v+vl ) *5) /lO’ 

660 IF (V+V1X8 THEN (SOTO 680 
670 PRINT "All dead"; RETURN 
680 PRINT "Safely"; RETURN 



Touchdown: BBC version 


20 MODE 5 
30 *FX 12,1 
40 PROCSETVAR 
50 PROCDISPLAY 
60 PROCMODULE (H,3) 

70 PROCBARl 1 ,F,3+2* (F<25) > 
80 PROCBAR <2, ABSV, 3+ (V<0) ) 
90 PROCBAR < 3, H, 3+2 * (H-; 25) ) 
lOO PROCBAR ( 4, T, 3) 

110 PROCTHRUST 
120 Vl=V-T/20+G : F=F-T/10 
130 HI =H- (V+Vl ) / 10 
140 PROCMODULE <H,0) 

150 IF HKO THEN 200 

160 H=H1:V=V1 

170 IF H'=100 THEN 60 

180 PROCLOST 

190 GOTO 220 

200 PROCMODULE (O, 2) 

210 PROCLANDED 
220 »FX 12 
230 END 

240 DEF PROCSETVAR 
250 H=100:F=100:T=0 
260 V=5+RND(10) 

270 G= ( RND < 40 ) +40 ) / 1 OO , 


490 PLOT 85,V*4,Y : PLOT 85,V*4,Y-16^ 

500 PLOT 87, 400, Y ; PLOT 87.400.Y-16 

510 ENDPROC 

520 DEF PROCTHRUST 

530 *FX 15,1 

540 IF INKEY (-194) THEN T=T+4 ; 

IF TilOO THEN T=100 
550 IF INKEY (-179) THEN T=T-4 : 

IF T<0 THEN T=0 
560 IF T>F THEN T=F 
570 ENDPROC 
580 DEF PROCLOST 
590 CLS 

600 FOR 1=1 TO 20 

610 VDU 31 ,RND< 19) ,RND(31 ) , 42 

620 NEXT 

630 PRINT TAB(4, 16) "LOST IN SPACE*'" 

640 ENDPROC 

650 DEF PROCLANDED 

660 VDU 28,0,31,11,0,12 

670 PRINT ’"LANDED" 

680 PRINT ’"AT VEL " ; INT ( (V+Vl ) *5) / 10 
690 IF (V+V1X8 THEN PRINT ’"SAFELY" 
ELSE PRINT ’"ALL DEAD" 

700 ENDPROC 


280 ENDPROC 

290 DEF PROCDISPLAY 

300 MOVE 800,30 



310 FOR X=800 TO 1280 STEP 16 
320 DRAW X,10+RND(40) 

330 NEXT 

340 PRINT ••GRAVITY=";G 

350 PRINT ’ ” ’ "FUEL "VEL : " 

360 PRINT ’’’’’ "HEIGHT: "THRUST: 

370 ENDPROC 

380 DEF PROCMODULE <H,C> 

390 GCOL 0,C 
4tXi y=H*8.5+150 

410 MOVE 1040,Y : PLOT 1,-40, -40 
420 PLOT 1,-8, -60 : PLOT 1,96,0 
430 PLOT 1,-8, 60 ; PLOT 1,-40,40 
440 ENDPROC 
450 DEF PROCBAR <N,V,C) 

460 Y=1000-192*N 
470 GCOL 0,C 

480 MOVE 0,Y : MOVE 0,Y-16 


Touchdown: Apple version 



^15 HOME 310 
20 HGR 320 
30 DEE FNR(X)=INT(RND(1)»X+1) 330 
40 GOSUB 250 335 
50 GOSUB 300 

60 C=3: GOSUB 390 337 
70 A=1 : B=F: GOSUB 460 340 
80 A=2:B=ABS(V) : GOSUB 460 350 
90 A=3:B=H; GOSUB 460 

100 A=4: B=T; GOSUB 460 360 
110 GOSUB 530 370 
120 Vl=V-T/20+G : F=F-T/10 390 
1 30 H 1 =H- ( V+V 1 ) / 1 O 400 
140 C=0: GOSUB 390 410 
150 IF HKO THEN 200 420 
160 H=H1:V=V1 

170 IF H<=100 THEN 60 430 
180 GOSUB 590 435 
190 GOTO 220 ' 437 
200 H=0:C=3: GOSUB 390 440 
210 GOSUB 660 460 
220 END 470 
250 H= 1 OO: F= 1 OO: T=0 480 
260 V=5+FNR(10) 490 
270 G=(FNR< 40) +401/100 500 
280 RETURN 510 
300 HCOLOR=3 530 
305 HPLOT 0,155 


540 

550 

560 

570 

590 

hOO 

640 

660 

670 

680 

690 

700 


FOR X=0 TO 279 STEP 5 
HPLOT TO X, 159-FNR( 10) 

NEXT 

FOR 1=1 TO 30 :HPLOT FNR<279), 

FNR( 150) 

NEXT 

VTAB 21 : PRINT TAB ( 34 ) ; ”G=” ; G 
VTAB 21 : PRINT "FUEL:" : 

PRINT "VEL:" 

PRINT " HE I GHT : " : PRINT " THRUST : " ; 

RE TURN 

HCOLOR=C 

Y= < lOO-H) »1 .3 

HPLOT 140, Y TO 120,Y+10 

HPLOT TO 120,Y+20 : 

HPLOT TO 160,Y+20 

HPLOT TO 160,Y-HO : HPLOT TO 140,Y 
HPLOT 155,Y+20 TO 160,Y+25 
HPLOT 125,Y+20 TO 120,Y+25 
RETURN 

VTAB (20-i-A) : HTAB 8 

INVERSE 

PRINT SPC(B/4); 

NORMAL 

PRINT SPC(26-B/4); 

RETURN 

1^="" : IF PEEK (-16384) >127 

THEN GET I^ 

IF IS="A" THEN T=T-^4 : 

IF T>100 THEN T=100 
IF I^="D" THEN T=T-4 : 

IF T <0 THEN T=0 
IF T>F THEN T=F 
RETURN 

HOME : VTAB 23 

PRINT "LOST IN SPACE ‘ " 

RETURN 

HOME : VTAB 22 

PRINT "LANDED AT VEL "; 

INT< (V+Vl ) *5) /lO 
IF <V+V1)<8 THEN 700 
PRINT "ALL DEAD" : RETURN 
PRINT "SAFELY" : RETURN 


Adding to the programs 


Here are some ideas for additions 
you can make to the programs in 
this book or to your own programs. 

In most cases you won’t be able to 
add these to a ZX81 with only IK as 
the games themselves fill almost all 
its memory space, but you should 
find there is plenty of room on the 
other computers. 

Remember you will either have to 
restrict your additions to the spare 
line numbers in a program or 
renumber the program. If you 
decide to renumber, take care you 
change all the GOTO and GOSUB 
lines too. 

■ 

Getting the computer to tell you 
how to play 

You can add a 
section to any 
program to make 
the computer print 
instructions telling 
you what to do. The 
easiest way to do 
this is to add some lines, such as those 
below, at the beginning of the 
program and then put a sub-routine at 
the end. 




Making the computer 
stop and wait for you jcontos 

If your instructions are very long, you 
may want to insert this sub-routine 
which stops the program running at a 
particular point until you press a key. 
This way you can stop the instructions 
scrolling off the top of the screen 
before you have read them. Put a 
GOSUB line at the place you want the 
program to stop and then put this sub- 
routine at the end. 

lOOO PRINT "PRESS ft KEY TO CONTINUE 
SZXIOIO IF INKEV»="" THEN GOTO lOlO 
A^IOIO I»=6ET» 

•1010 GET I« 

AlOlO GET I* : IF 1*="" THEN GOTO 1010 

1020 PRINT 
1030 RETURN 

Making the computer "talk" to 
you 



10 PRINT "TITLE OF GftME" 

11 PRINT "DO YOU WftNT TO" 

12 PRINT "KNOW HOW TO PLftY?" 

15 INPUT I* 

SZX17 IF I*(1)="Y" THEN GOSUB lOOO 

if LEFT*<I*, 1)="Y" THEN GOSUB lOOO 

main program goes here 


You can make the computer ask you 
questions and react to your answers. 

For instance, here is an addition which 
will make the computer refuse to play 
with you unless your name begins with J, 
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1000 PRINT "WHftT YOU HftVE TO" 

1010 PRINT "DO IS " 

1999 RETURN 

You can add as many print statements 
as you like for the instructions, just 
remember to put a number and the ^ 

word PRINT at the beginning of each 


1 PRINT "WHftT IS YOUR NAME?" 

2 INPUT I* 

3 IF I*(1X>"J" THEN GOTO lOOO 

3 IF LEFTAd*, 1)0"J" THEN GOTO lOOO 

4 PRINT "OK-YOU CftN PLftY." 

5 PRINT "ftRE YOU READY?" 

6 INPUT J» 

7 IF J*<1X>"Y" THEN GOTO 5 

17 IF LEFT* <J*, 1)0" Y" THEN GOTO 5 


one. Restrict the length of the part 
inside the quotation marks to the 
number of characters your computer 
can print on one line. Don’t forget to 
put a RETURN line at the end or the 
program won’t work. 


main program here 

lOOO PRINT "SORRY THIS GAME IS 
1010 PRINT "ONLY FOR PEOPLE" 
1020 PRINT "WHOSE NAMES BEGIN" 
1030 PRINT "WITH J" 





Here is another one where the 
computer dares you to be brave 
enough to play. 

10 PRINT "VERY SCAREY GAME" 

12 PRINT "ARE YOU BRAVE ENOUGH" 

14 PRINT "TO TACKLE THE GREEN" 

15 PRINT "HAIRY MONSTER?" 

16 INPUT I* 

S ZX17 IF I*(1)="Y" THEN GOTO 20 
★■A*17 if LEFT*(I*, 1)="Y" THEN GOTO 20 

18 PRINT "COWARD" 

19 STOP 

Y ou could combine this with the 
instruction sub-routine by taking lines 

1 1 to 17 from the instructions section 
on this page and putting them at lines 

20 to 26 of this program. You can then 
start the main program at line 30 and 
add the instruction sub-routine at the 
end. 


cases you can add a single line to your 
program at the place you want the 
sound. In others, you need several 
lines and it is best to put these in as a 
sub-routine. 

As an example, here is the sound of 
a shot for the BBC. You can experiment 
with where to put it in the program, but 
you must give it a line number to make 
it work; 

SOUND 0,-15,5,10 

At the back of the VIC manual you 
will find some useful sub-routines for 
sounds such as “laserjjeam”, 
“explosion” and “red alert”. Put a 
GOSUB line where you want the sound 
to appear, number the sub-routine and 
add a RETURN at the end of it. 


Would you like another go? 

Instead of typing RUN each time you 
play a game, you can make the 
computer ask you if you’d like another 
go. Put these lines at the end of the 
program, just before the last STOP 
statement. 


lOOO PRINT "DO YOU WANT ANOTHER GO?" 
1010 INPUT I* 

SZX1020 IF I*(1>="Y" THEN RUN 

★■a*io2o if left*(i», i)="Y" then run 

1030 print "OK THEN - BYE" 

1040 STOP 



Change line 
numbers according 
to your program. 

Adding sound effects 


The BBC, VIC 20, ZX Spectrum and 
some Apples are able to produce 
sounds and you can add lines to your 
programs to make them do so at 
appropriate places. You could add an 
explosion for instance, or a little tune 
which plays if you win. All the 
computers need different instructions 
to make sounds though, so you will 
have to look at your manucil. In some 



Special note for BBC and 
Spectrum users M ^ 

If you have a BBC or a ZX Spectrum 
you may find that some of the games 
in this book run too fast for you. You 
will find a box next to these games 
containing instructions for 
changing the speed. Remember, to 
slow the game up you always need 
to use a higher number. Later 
models of the BBC may run up to 
twice as fast as the earlier models, 
and this could make the games 
appear impossible on the first run. 
Be prepared to make big changes 
to the speed number to correct this. 
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Writing your own programs 


As you work through the games in 
the book, you will probably find 
yourself making more and more 
changes to them and eventually 
wanting to write new games of your 
own. On these two pages you will 
find some hints on how to set about 
doing this. 





*It can tell you the results of its 
calculations and decisions and also 
what is stored in its memory. 


‘Provided you use its language 
correctly, it can do only exact/y what 
you tell it, even if it is silly. 

Remember, when you are trying to 
work out a game, not to include 
anything which your computer won’t 
be able to do. 


Before you start, it is a good idea to 
stop and think about what your 
computer can and cannot do. 


*lt can ask you for information. 


*lt can store information 


*lt can do calculations. 


*lt cannot do anything unless you tell it 
to. 


*lt can make decisions by comparing 
items of information in various ways. 


*lt can select numbers at random by 
using RND. 







Planning a game 


Writing the program 


Before you can tell the computer how 
to play your game, you must know 
exactly how to play it and what the 
rules are yourself. The computer will 
need a series of simple logical 
instructions, so work out your game in 
your head or on paper first and then 
break it down into simple steps. 

Next write a plan (in English - don’t 
try to use BASIC yet) of all the stages of 
the game in order. 

Here is a plan for a simple shooting 
game, such as firing cannon balls at a 
pirate ship or shooting laser beams at 
an alien invader, to give you an idea. 

PLAN 

•fj Print riTUE mo 

INSTRUCTIONS 

2) CHOOSE A TAROET 
FOR THIS CiAtAE 

5) BEaiN A LOOP TO 

<^IVE THE PLAYER, I 

N COES / 

4-) CET A SHOT FROM 

THE Player 

s) CHECK IF SNOT WAS 
ON TARQEJ 

6) PRINT MESSAGE 
DEPENDING ON 

Accuracy of shot 

l) ^0 SACK FOR 
ANOTHER qo IF SHOT 
WAS UNSUCCESSFUL ^ 


The next stage is to convert your plan 
into BASIC. Each step in your plan may 
need several lines in BASIC. Don’t 
forget to leave gaps when numbering 
your program lines so you can go back 
and add extra ones if you need to. 

Do a first draft of the program on 
paper first and then start testing on the 
computer. Your computer will spot 
errors much more quickly than you 
will see them yourself and may give 
you a clue as to what is wrong. 
Remember that debugging programs 
is a long, tedious process even for 
expert programmers, so don’t expect 
to get yours right first time. 



Once you have got the core of the 
program working, you can add to it. 
Scoring, extra comments, more 
targets etc. can all be incorporated 
later. You could add sections from the 
programs in this book to your games. 

Don’t expect to be able to write 
exciting and original games straight 
away. Keep your ideas very simple 
and be prepared to adapt them as you 
go along. You may find you have 
included something in your game 
which is easy for humans to do but 
very difficult for a computer. As you 
get more experienced you will begin 
to know instinctively what your 
computer can do and find it easier to 
write programs for it. 
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Summary of BASIC 

This section lists some common BASIC words and describes what they 
make the computer do and how they are used. Most of them have been used 
in the programs in this book, so you can check back through the book to see 
how they work in a game. Not all the words can be used on all the 
computers mentioned in this book. The conversion chart on page 46 shows 
what you can use instead. 



LET tells the computer to label a section of its 
memory eind put a particular value in it e.g. LET 
A= 6 means label a section of memory “A” and put 
the value 6 in it. “A” is called a “variable” and putting 
something in it is called “assigning a value to a 
variable”. 

Some variable labels are followed by a dollar 
sign e.g. A$. This means they are for “strings”, 
which can contain any number of characters, 
including letters, numbers and symbols. 



PRINT tells the computer to display things on the 
screen and you can use it in several ways: 

A message enclosed in quotation marks with 
PRINT in front of it will be displayed on the screen 
exactly as you typed it. The section inside quotes 
does not have to be in BASIC, it can be anything you 
like. 

PRINT followed by a variable label e.g. PRINT A 
or PRINT A$ tells the computer to display the 
contents of that variable on the screen. 

PRINT can also do Ccilculations and then display 
results e.g. PRINT 6*4 will make the computer 
display 24. 

You can use PRINT by itself to leave an empty 
line. 


RND tells the computer to choose a number at 
random. Different computers use different forms of 
RND and you can see what these are in the 
conversion chart on page 46. On Sinclair computers 
by itself produces a number between 0 and 
99999999. You cam vary the limits of the number it 
by multiplying RND and adding to it. E.g. 
RND* 20 produces a number between 0 and 
19.99999999, while RND*20+ 1 produces anumber 
between 1 and 20.99999999. 

See INT for how to produce only whole numbers. 
See CHR$ for how to produce letters and other 
keyboard characters at random. 





INT is short for integer, which means whole 
number. For positive numbers, it tells the computer 
to ignore everything to the right of the decimal 
point. E.g. INT(20.999) is 20. For negative numbers, 
it ignores everything to the right of the decimal 
point and “increases” the number to the left of it by 
one e.g. INT( - 3.6) is - 4. 

INT is often used with RND, like this: 

INT(RND*20 + 1) which tells the computer you want 
it to choose a whole number between 1 and 20. 

CHR$ converts numbers into letters. Apart from the 
ZX8 1 , all the computers in this book use the 
ASCII* set of keyboard characters in which each 
character corresponds to a certain number. E.g. 
letter A has the code number 65 and PRINT 
CHR$(65) will display an A on the screen. 

You can use CHR$ with INT and RND to make the 
computer select random letters, like this: 

CHR$(INT(RND*26 + 65)) 

This line will produce random letters on a ZX 
Spectrum (see conversion chart for other 
computers). 




FOR is used to start a “loop” which will make the 
computer repeat part of a program a certain 
number of times. It must be followed by a variable 
(such as G to stand for the number of goes allowed 
in a game), and the variable must be given start and 
end values (such as 1 TO 10.) 

The end of the loop is marked by a NEXT line 
(NEXT G in this example) which increases the value 
of the variable by 1 each time and then sends the 
computer back to the FOR line again. When the 
variable reaches its end value, the computer 
ignores the NEXT line and carries on to the line 
which follows it. Every FOR must have a NEXT or 
you will get a bug. 



INPUT labels a space in the computer’s memory, 
prints a question mark and then waits for you to 
type something which it can put in this memory 
space. It will not carry on with the rest of the 
program until you press RETURN, ENTER or 
NEWLINE. 

You can use number or string variables with 
INPUT, but if you use a number variable the 
computer will not accept letters from you. 



* American Standard Code for Information Interchange (see page45) 





INKEY$ checks the keyboard to see if a key is 
being pressed and if so which one. It does not wait 
for you to press a key like INPUT does. It is usually 
used in a loop which makes the computer go round 
checking the keyboard lots of times. This is 
because computers work so quickly, you wouldn’t 
have a chance of pressing a key in the time it takes 
the computer to do one check. 

If you haven’t pressed a key before the loop 
finishes, the computer carries on with a string 
containing nothing (called a “null” string). 

NB Apple and VIC do not use INKEY$. 


GET is used instead of INKE Y$ on VIC and Pet 
computers. 


GOTO makes the computer jump up or down the 
program ignoring the lines in between. You must 
put the number of the line you want it to jump to 
after the GOTO instruction. 


GOSUB tells the computer to leave the main 
program and go to a sub-routine. GOSUB must be 
folowed by the number of the first line of the sub- 
routine. At the end of the sub-routine you must have 
a RETURN line. This sends the computer back to 
the main program to the line immediately following 
the GOSUB line. A GOSUB without a RETURN in a 
program will give a bug. 



IF . . . THEN tells the computer to decide if an 
expression is true or false, and do different things 
depending on the einswer . It is used with the 
following signs, and also with AND or OR: 

=thesameas 
<less than 
> greater than 
< = less than or the same as 
> = greater than or the same as 
onot the same as 

If the computer decides an expression is true, it 
carries on to do the instruction which follows 
THEN. If it decides it is false, it ignores the rest of 
that line and goes on to the next one. 


42 




CLS is used to clear everything off the screen 
without removing or changing anything in the 
memory. It is useful for removing the listing from 
the screen at the beginning of a RUN or in games 
when you want the player to react to something 
seen for a limited amount of time. (NB Apple and 
VIC do not use CLS - see conversion chart). 




HOME is used by Apple computers instead of CLS 
to clear the screen. 


ABS ignores plus and minus signs in front of 
numbers and takes their “absolute” values. E.g. 
ABS(- 10) is 10 and ABS(+ 10) is also 10. 


VAL takes the numeric value of numbers written as 
strings. In effect, it tells the computer to ignore the 
dollar sign and treat the string as an ordinary 
number variable. E.g. if I$=“60” then VAL(I$) is the 
number 60. 



ASC converts a character into its ASCII code 
number e.g. ASC(“3”) gives 5 1 . The expression in 
brackets must be a string e.g. ASC(A$) or 
ASC(“20”). 

NB ZX8 1 and ZX Spectrum do not use ASC, though 
the Spectrum does use the ASCII code. 


CODE is used by ZX8 1 and Spectrum in place of 
ASC. Like ASC it must always be followed by a 
string. Remember that the ZX8 1 uses different code 
numbers from the other computers. 



TAB moves the cursor across the screen to a 
specified column number. It is usually used with 
PRINT to display something in the middle of the 
screen. The number of spaces you want the cursor 
moved is put in brackets after TAB. The maximum 
number you can use depends on the screen width 
of your computer. 
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SGN tells the computer to find out the sign of a 
number. It produces — 1 for a negative number, 0 
for zero and + 1 for positive numbers. E.g. 

SGN( - 30) is - 1, SGN(7) is + 1 and SGN(O) is 0. 



DIM tells the computer how much memory space 
will be needed for an “array” (a row or a grid). E.g. 
DIM X(6) tells the computer to set aside an area 
large enough to contain a row of 6 elements and 
labelled X. DIM A(8,8) means a memory space 
labelled A and big enough to take 8 elements 
across and 8 down is needed. The number of 
elements of data used in the program must 
correspond to the numbers in brackets after DIM 
or you will get a bug. 

SQR takes square roots of numbers. E.g. SOR( 16) 
gives the answer 4. 

SIN calculates the sine of an angle. In a right-angled 
triangle the length of the side opposite an angle, 
divided by the length of the Hypoteneuse (the side 
opposite the right angle) is the sine of that angle. 
When you use SIN in a program, the angle you are 
using it with must be measured in radians, not 
degrees. 

ATN is one of the trig, functions which computers 
can calculate (see also SIN above). It stands for 
arctangent and it is important to remember that it 
gives an answer in radians, not degrees. You will 
need to use a maths book to find out how this works 
if you do not already know about it. 


STOP tells the computer not to go any further in a 
program. Computers other than the ZX8 1 can use 
END instead. 

PEEK is a way of finding out what is in a specific 
area of the computer’s memory. You need to use it 
with a number which specifies an “address” in the 
memory. 

NB not used on BBC. 

POKE is a special way of putting information in the 
computer’s memory by using a memory “address’. 
NB not used on BBC. 











ASCII chart 


ZX81 code chart 


Code 

number 

ASCII 

character 

Code 

number 

ASCII 

character 

32 

space 

62 

> 

33 

1 

63 

9 

34 


64 

ki 

35 

# 

65 

R 

36 

$ 

66 

B 

37 

% 

67 

C 

38 

& 

68 

D 

39 

j 

69 

E 

40 

( 

70 

F 

41 

) 

71 

G 

42 

★ 

72 

H 

43 

-h 

73 

I 

44 

) 

74 

J 

45 

— 

75 

K 

46 

a 

76 

L 

47 

/ 

77 

M 

48 

0 

78 

N 

49 

1 

79 

O 

50 

2 

80 

P 

51 

3 

81 

0 

52 

4 

82 

R 

53 

5 

83 

S 

54 

6 

84 

T 

55 

7 

85 

U 

56 

8 

86 

V 

57 

9 

87 

W 

58 

■ 

88 

X 

59 

t 

89 

Y 

60 

< 

90 

Z 

61 

= 




Code 

number 

ZX81 

character 

Code 

number 

ZX8I 

character 

11 

jj 

41 

D 

12 

£ 

42 

E 

13 

$ 

43 

F 

14 

J 

44 

G 

15 

9 

45 

H 

16 

( 

46 

I 

17 

) 

47 

J 

18 

> 

48 

K 

19 

< 

49 

L 

20 

= 

50 

M 

21 

+ 

51 

N 

22 

— 

52 

O 

23 

* 

53 

P 

24 

/ 

54 

0 

25 

s 

55 

R 

26 

1 

56 

S 

27 


57 

T 

28 

0 

58 

U 

29 

1 

59 

V 

30 

2 

60 

W 

31 

3 

61 

X 

32 

4 

62 

Y 

33 

5 

63 

Z 

34 

6 



35 

7 



36 

8 



37 

9 



38 

A 



39 

B 



40 

C 




Chart of screen sizes 



Max. number of 

Max. number of 


characters across 

lines down 


(or number of columns) 

(or number of rows) 

VIC 20 

22 

23 

TRS-80 

64 

16 

BBC 

20/40/80 

16/24/32 

ZX81 

32 

22 

ZX Spectrum 

32 

22 

Apple 

40 

25 
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Conversion chart 

This quick reference chart shows some of the variations in the BASIC used by the machines in this book. It does 
not include instructions for graphics, sound or colour as these vary so enormously from machine to machine. 
Note also that although most computers (except the BBC) use PEEK and POKE, they do not use the samesystem 
of memory addresses, so the numbers used with PEEK and POKE must be changed for each computer. 



BBC 

VIC/Pet 

Apple 

TRS-80 

ZX Spectrum 

ZX81 

Select random 
number between 0 
and 0.99999999 

RND(l) 

RND(l) 

RND(l) 

RND!0) 

RND 

RND 

Select random 
number between 1 
andN 

RND(N) 

RND(l)*N-f-l 

RND(1)*N+1 

RND(N) 

RND*N+1 

RND*N+ 1 

Select random letter 
between A and Z 

CHR$(RND(26)+64) 

CHR$(INT(RND(1) 
*26+ 65)) 

CHR$(INT(RND(1) 
*26 + 65)) 

CHRS!RND!26)+64) 

CHRS!INT!RND*26 + 65)) 

CHR$!INT!RND*26+38)) 

Clear screen 

CLS 

PRINT CHR$( 147) 

HOME 

CLS 

CLS 

CLS 

Check keyboard to 
see if key being 
pressed 

INKEY$(N) 

GETX$ 

X$=“ ” 

IF PEEK(- 16384) 
>127 THEN GET X$ 

INKEYS 

INKEYS 

INKEYS 

Convert characters 
into code numbers 

ASC(“X”) 

(using ASCII code) 

ASC(“X”) 

(using ASCII code) 

ASC(‘‘X”) 

(using ASCII code) 

ASC(“X”) 

(using ASCII code) 

CODE(“X") 

(using ASCII code) 

CODE(“X”) 

(using ZX81 code) 

Move cursor up 

PRINT CHR$( 11) 

PRINT CHR$( 145) 

CALL -998 

PRINT CHRS!27) 

PRINT CHRS! 11) 

PRINT CHRS! 112) 

Move cursor down 

PRINT CHR$( 10) 

PRINT CHR$( 17) 

PRINT CHR$( 10) 

PRINT CHRS!26) 

PRINT CHRS! 10) 

PRINT CHRS! 113) 

Move cursor left 

PRINT CHR$(8) 

PRINT CHR$( 157) 

PRINT CHR$(8) 

PRINT CHRS!24) 

PRINT CHR$(8) 

PRINT CHRS! 11 4) 

Move cursor right 

PRINT CHR$(9) 

PRINT CHR$(29) 

PRINT CHR$(21) 

PRINT CHRS!25) 

PRINT CHR$(9) 

PRINT CHRS! 11 5) 

Take 1st N 
characters of string 

LEFT$(A$,N) 

LEFT$(A$,N) 

LEFTS! AS.N) 

LEFTS! AS, N) 

AS! 1 TON) 

AS! 1 TON) 

Take last N 
characters of string 

RIGHT$(A$,N) 

RIGHTS! A$,N) 

RIGHTS! AS, N) 

RIGHTS!AS,N) 

A$!NTO ) 

AS!NTO ) 

Take middle N 
characters of string 

MID$(A$,N1,N2) 

MID$(A$,N1,N2) 

MIDS!AS,N1,N2) 

MIDS!AS,N1,N2) 

AS!NlTON2) 

AS!N1T0N2) 
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Answers 


You may find that your answers to 
some of the puzzles are different to 
the ones given here. As long as they 
work on your computer then this 
doesn’t really matter, but check to 
see if they are as neat and simple as 
the answers in the book. 

Page 5 

Starship Takeoff 

Lines 30 and 40 select the numbers 
which determine what the force will 
be. To increase the range of possible 
forces, you can increase either the 20 
in line 30, or the 40 in line 40, or both of 
these numbers. Increasing the range 
of forces will obviously make the 
game more difficult. 

Page? 

Intergalactic Games 

Change lines 222 and 230 as follows: 


Here are the changes to make the 
bugs appear in 5 places: 

70 LET R=INT(RND»5+1> 

SZX80 eOSUB 220+20»R 

■A#80 ON R GOSUB 240,260,280,300,320 


240 

245 

250 

260 

265 

270 

280 

285 

290 

300 

305 

310 

320 

325 

330 


LET D=5 
LET A=1 
GOTO 350 
LET D=1 
LET A=9 
GOTO 350 
LET D=5 
LET A=18 
GOTO 350 
LET D=10 
LET A=7 
GOTO 350 
LET D=15 
LET A=15 
GOTO 350 



To add more bugs, change the 10 in 
lines 30 and 220 to a higher number. 
(Make sure you use the same number 
for both lines.) 

Page 13 
Moonlander 


222 LET B=B+INT(1000/G) 

230 GOTO 20 

and add a new line 15: 

15 LET B=0 

Pages 
Evil Alien 

Change lines 20 and 30 and add a new 
line 25 as follows: 

20 PRINT "HOW DIFFICULT? (6 TO 30)" 
25 INPUT S 
30 LET G=INT(S/3) 

Page 11 

Beat the Bug Eyes 

To make the bugs appear in more than 
four places on the screen, you need to 
put a higher number than 4 in the 
middle of line 70, change line 80 and 
add more sub-routines at the end of 
the program - one for each extra 
position. 


To increase the speed allowed for a 
safe landing, you need to make 
changes to lines 230, 240 and 250. You 
can use any numbers you like - the 
higher they are the easier the game 
will be. In this example, you are 
allowed a speed of 2 for a good 
landing and 7 for an OK landing: 

230 IF VI >7 THEN PRINT "YOU CRASHED 
- ALL DEAD" 

240 IF VI >2 AND Vl<=7 THEN PRINT "OK 
-BUT SOME INJURIES" 

250 IF Vl<=2 THEN PRINT "GOOD LANDING 


Four ways of making this game harder 
are: 

1 Start the game with less people in 
the group by putting a smaller number 
than 5 in line 40. 

2 Increase the number of monsters by 

changing the 4 in lines 20 and 30. Add 47 


Page 15 

Monsters of Galacticon 


extra monster names at lines 8 1 to 89 
using M$(5) and M$(6). 

3 Reduce the number of goes allowed 
by altering the 8 in line 160. 

4 Increase the chance of the monster 
being angered in line 330 by 
increasing .4 a httle. 

Page 17 
Alien Snipers 

In this game, N is the code number. To 
change the scoring to fit the code 
number you need to increase the 
score by N each time instead of 1. So, 
change line 190 as follows: 

SZX190 IF I*=CHR*(CODE(L*)+N) THEN 
LET S=S+N 

^■A#190 IF I*=CHR»(ASC(L*>+N) THEN 
LET S=S+N 

Page 19 
Asteroid Belt 

You need to change line 260 so that the 
computer adds the number of stars to 
your score instead of 1. The nunrber of 
stars is controlled by the value chosen 
for N in line 70, so, as in the puzzle 
above, you need to add N to the score. 
You also need to chemge line 320. 

260 LET S=S+N 

320 PRINT "YOU SCORED "jS}" POINTS" 

Page 21 

Trip into the Future 

1 To increase the range of years 
which must elapse before you return 
to Earth, change the 100 in line 30 to a 
higher number, e.g. 150, like this: 

30 LET T=INT<RND»150+25) 

2 To increase the accuracy from 5 to 2 
years, change the 5s in lines 180 and 
190 to 2, like this: 

ISO IF ABS(T-T2)<=2 THEN PRINT "YOU 
ARRIVED ON TINE" 

190 IF ABS(T-T2)>2 THEN PRINT "NOT 
EVEN CLOSE" 


3 Line 170 contains the number which 
determines the length of your lifetime. 
Change the 50 to a higher number for a 
longer lifetime. 

Page 23 
Death Valley 

You can make the valley longer by 
changing the number in line 30 to 
something higher than 200. 

Page 25 
Space Mines 

Add these lines to mcike the computer 
ask if you would like another game: 

645 PRINT "ANOTHER GAME? (TYPE Y OR N) " 

646 INPUT A* 

647 IF A*="Y" THEN GOTO 10 

Y ou must then a new line at 5 and 
change line 30 to add the money you 
ended up with at the end of the game 
to the money allowed for the new 
game: 

5 LET M=0 

30 LET M=M4-INT(RND*504-10)tP 

(Make sure you use the correct 
version of RND for your computer.) 
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I— Usborne Computer Programs — 

Each of these colouzful new books contains 14 simple games programs to 
play on a microcomputer/ Alongside the programs there are 
explanations of how they work and puzzles and suggestions for ways of 
changing them. Through playing these games even complete beginners 
will quickly begin to understand how a simple program works and be 
itching to write their own. There are tips and hints on writing programs 
and a summary of BASIC at the back of each book and also a chart which 
wiU help you convert programs in magazines and other books to work on 
your micro. 

*The programs in these books are suitable for use on the following 
micros: ZX81, BBC, TRS-80, VIC 20, Pet, Apples which use Palsoft BASIC 
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A colourful guide to 
microcomputers, how 
they work and what they 
can do, with lots of ideas 
for things you can do 
with a micro. 


A step-by-step guide to 
programming in BASIC 
for absolute beginners. 
With lots of programs to 
run on any 
microcomputer. 


A colourful look at how 
computers play Space 
Invaders, chess and 
other games, with lots of 
tips on how to beat the 
computer. 
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